home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #6 / Amiga Plus CD - 1996 - No. 06.iso / pd / programmierung / amosintros / aaintro2.amos / aaintro2.amosSourceCode next >
AMOS Source Code  |  1996-08-01  |  3KB  |  85 lines
  1. Rem (C)96MNT/FREEWARE! 
  2.  
  3. Rem another intro.uses the amosproStars.lib
  4.  
  5.  
  6.  
  7. Global XT
  8.  
  9. 'R=Execall(-132) : Amos Lock : Comp Test Off : Break Off   
  10.  
  11. Screen Open 6,640,8,16,0 : Flash Off : Cls 0
  12. For I=0 To 14 : X=I*11 : Colour I+1,I*$111 : Ink I+1 : Draw X,0 To X+10,0 : Draw 320-X,0 To 309-X,0 : Next I
  13. Screen Copy 6,0,0,319,1 To 6,320,0 : Screen Display 6,128,117,320,1 : Screen Clone 7 : Screen Display 7,128,203,320,1
  14.  
  15. Unpack 11 To 1 : Screen Display 1,208,70,, : Hide On 
  16. Set Rainbow 0,0,40,"","","(1,1,5)(30,0,1)(1,-1,5)" : Rainbow 0,0,61,40
  17.  
  18. Screen Open 4,320,80,2,0 : Curs Off : Cls 0 : Extension_20_003A 4,1,60
  19.  
  20. Screen Open 0,320,160,4,0 : Curs Off : Flash Off : Cls 0
  21. Screen Display 0,128,121,320,80 : Hide On : Screen Offset 0,0,80
  22. Palette 0,$CCF,$88D,$44B,$33C
  23.  
  24. Dual Playfield 0,4 : Flash 9,"(33c,10)(44d,10)"
  25. Restore T : Led Off : Track Loop On 
  26.  
  27. Amal 1,"A:;P;IK1JB;JA;B:LRA=255;E;"
  28.  
  29. Channel 2 To Screen Display 1 : Amal 2,"L:LY=70;P;LY=68;P;LY=65;P;LY=62;P;LY=60;P;LY=58;P;LY=57;P;LY=56;P;LY=56;P;LY=56;P;LY=57;P;LY=58;P;LY=60;P;LY=63;P;LY=65;P;LY=68;P;JL;E;"
  30. Channel 3 To Rainbow 0 : Amal 3,"L:LY=61;P;LY=59;P;LY=56;P;LY=53;P;LY=51;P;LY=49;P;LY=48;P;LY=47;P;LY=47;P;LY=47;P;LY=48;P;LY=49;P;LY=51;P;LY=54;P;LY=56;P;LY=59;P;JL;E;"
  31.  
  32. Channel 4 To Screen Offset 6 : Amal 4,"L:FR0=0T31;LX=R0*10;NR0;JL;E;"
  33. Channel 5 To Screen Offset 7 : Amal 5,"L:FR0=0T31;LR1=R0*10;LX=320-R1;NR0;JL;E;"
  34.  
  35. Channel 6 To Screen Offset 0
  36. Amos To Front : Amal On : Track Play 6
  37.  
  38. Do : Read A$
  39.    If A$=""
  40.       Restore T
  41.       
  42.    Else If A$="#"
  43.       If A=False
  44.          Y=80 : Repeat : Add Y,-4 : Screen Offset 0,0,Y : W[1] : Until Y<=0
  45.          Y=80 : A=True : Cls 8,0,80 To 319,159
  46.       Else 
  47.          Y=0 : Repeat : Add Y,4 : Screen Offset 0,0,Y : W[1] : Until Y>=80
  48.          Y=0 : A=False : Cls 8,0,0 To 319,79
  49.       End If 
  50.       Proc W[200]
  51.       If Amreg(0)=255 : Exit 1 : End If 
  52.       
  53.    Else 
  54.       A$=Upper$(A$) : X=160-Len(A$)*4
  55.       For I=1 To Len(A$) : Trap Paste Bob X,Y,Instr("ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!.:-?()/=@ ",Mid$(A$,I,1))
  56.       Add X,8 : Next I : Add Y,8
  57.    End If 
  58.    Exit If Amreg(0)=255
  59. Loop 
  60.  
  61. 'R=Execall(-138):amos to back:end  
  62. Track Stop : Extension_20_004E : Rainbow Del : Screen Close 0 : Screen Close 1 : Screen Close 4 : Screen Close 6 : Screen Close 7 : Edit 
  63.  
  64. T:
  65. Data "MNT proudly presents","another piece of crap"
  66. Data " ","module by unknown"," ","we strongly encourage","you to buy the originals:"," ","too much piracy kills","your loved machine!"
  67. Data "#"
  68. Data "contact me:"," "
  69. Data "INTERNET","FEMA0012@FH-KARLSRUHE.DE"," "
  70. Data "lost childhood","49 721 85035F"," "
  71. Data "dark zone","49 721 760367"," "
  72. Data "#"
  73. Data " ","and dont forget:"," ","The amiga offers powers","other machines can",".: only dream of! :."," ","only amiga makes","it possible!","#"
  74. Data " "," "," ","see ya all at the",".: world of amiga :.","in koeln/germany!","#"
  75. Data " "," ","greetins to:","TAK - REDLINE - AOP"," ","FLAMES TO:","SVEN MATTMUELLER","(FUCK OFF!)","#"
  76. Data ""
  77.  
  78.  
  79. Procedure W[P]
  80.    If Amreg(0)=255 : Pop Proc : End If 
  81.    For I=1 To P
  82.       Wait Vbl 
  83.       If Amreg(0)=255 : XT=True : Exit 1 : End If 
  84.    Next I
  85. End Proc